home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / pd-software / mui_3.1 / developer / oberon / txt / demo.mod < prev    next >
Text File  |  1996-01-19  |  310b  |  18 lines
  1. MODULE demo;
  2.  
  3. IMPORT  Dos, Mui;
  4.  
  5.   PROCEDURE fail*( app : Mui.Object; str : ARRAY OF CHAR );
  6.     BEGIN
  7.       IF app # NIL THEN
  8.         Mui.DisposeObject( app );
  9.       END;
  10.       IF str # "" THEN
  11.         IF Dos.PutStr( str )= 0 THEN END;
  12.         HALT( 20 );
  13.       END;
  14.       HALT( 0 );
  15.     END fail;
  16.  
  17. END demo.
  18.